home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / t2win_16.zip / T2WIN-16.BAS < prev    next >
BASIC Source File  |  1996-05-16  |  78KB  |  1,076 lines

  1. Attribute VB_Name = "T2WIN_16_DEF"
  2. Option Explicit
  3.  
  4. ' definition for win.ini section
  5. Global Const GET_TIME_SEPARATOR = 1
  6. Global Const GET_DATE_SEPARATOR = 2
  7. Global Const GET_TIME_FORMAT = 3
  8. Global Const GET_DATE_FORMAT = 4
  9. Global Const GET_CURRENCY = 5
  10. Global Const GET_LANGUAGE = 6
  11. Global Const GET_COUNTRY = 7
  12. Global Const GET_COUNTRY_CODE = 8
  13. Global Const GET_LIST_SEPARATOR = 9
  14. Global Const GET_DEFAULT_PRINTER = 10
  15.  
  16. ' definition for drive type
  17. Global Const DRIVE_UNKNOW = 0
  18. Global Const DRIVE_REMOVABLE = 2
  19. Global Const DRIVE_FIXED = 3
  20. Global Const DRIVE_REMOTE = 4
  21. Global Const DRIVE_CDROM = 20
  22.  
  23. ' definition for file attributes
  24. Global Const A_NORMAL = &H0             'Normal file - No read/write restrictions
  25. Global Const A_RDONLY = &H1             'Read only file
  26. Global Const A_HIDDEN = &H2             'Hidden file
  27. Global Const A_SYSTEM = &H4             'System file
  28. Global Const A_VOLID = &H8              'Volume ID file
  29. Global Const A_SUBDIR = &H10            'Subdirectory
  30. Global Const A_ARCH = &H20              'Archive file
  31. Global Const A_NORMAL_ARCHIVE = &HFE    'Normal, Archive
  32. Global Const A_ALL = &HFF               'Normal, Archive, Read-Only, Hidden, System
  33.  
  34. ' definition for encrypt/decrypt
  35. Global Const ENCRYPT_LEVEL_0 = 0
  36. Global Const ENCRYPT_LEVEL_1 = 1
  37. Global Const ENCRYPT_LEVEL_2 = 2
  38. Global Const ENCRYPT_LEVEL_3 = 3
  39. Global Const ENCRYPT_LEVEL_4 = 4
  40.  
  41. ' definition for FILECRC32
  42. Global Const OPEN_MODE_BINARY = 0
  43. Global Const OPEN_MODE_TEXT = 1
  44.  
  45. ' definition for ARRAYONDISK
  46. Global Const PUT_ARRAY_ON_DISK = 0
  47. Global Const GET_ARRAY_ON_DISK = 1
  48.  
  49. ' definition for big numbers
  50. Global Const BIG_ADD = 0
  51. Global Const BIG_SUB = 1
  52. Global Const BIG_MUL = 2
  53.  
  54. ' definition for file version information
  55. Global Const VER_VERSION_PRODUCT = -1
  56. Global Const VER_VERSION_FILE = 0
  57. Global Const VER_COMPANY_NAME = 1
  58. Global Const VER_FILE_DESCRIPTION = 2
  59. Global Const VER_FILE_VERSION = 3
  60. Global Const VER_INTERNAL_NAME = 4
  61. Global Const VER_LEGAL_COPYRIGHT = 5
  62. Global Const VER_LEGAL_TRADEMARKS = 6
  63. Global Const VER_PRODUCT_NAME = 7
  64. Global Const VER_PRODUCT_VERSION = 8
  65.  
  66. ' definition for language in multi-language management
  67. Global Const LNG_FRENCH = 1
  68. Global Const LNG_DUTCH = 2
  69. Global Const LNG_GERMAN = 3
  70. Global Const LNG_ENGLISH = 4
  71. Global Const LNG_ITALIAN = 5
  72. Global Const LNG_SPANISH = 6
  73. Global Const LNG_CATALAN = 7
  74. Global Const LNG_POLISH = 8
  75.  
  76. ' definition for message position in multi-language message box
  77. Global Const MB_MESSAGE_LEFT = 0
  78. Global Const MB_MESSAGE_CENTER = 8192
  79. Global Const MB_MESSAGE_RIGHT = 16384
  80.  
  81. ' definition for timeout management in multi-language message box
  82. Global Const MB_TIMEOUT_2 = 32768
  83. Global Const MB_TIMEOUT_4 = 2 * MB_TIMEOUT_2
  84. Global Const MB_TIMEOUT_8 = 2 * MB_TIMEOUT_4
  85. Global Const MB_TIMEOUT_16 = 2 * MB_TIMEOUT_8
  86.  
  87. Global Const MB_TIMEOUT_6 = MB_TIMEOUT_2 Or MB_TIMEOUT_4
  88. Global Const MB_TIMEOUT_10 = MB_TIMEOUT_2 Or MB_TIMEOUT_8
  89. Global Const MB_TIMEOUT_12 = MB_TIMEOUT_4 Or MB_TIMEOUT_8
  90. Global Const MB_TIMEOUT_14 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8
  91. Global Const MB_TIMEOUT_18 = MB_TIMEOUT_2 Or MB_TIMEOUT_16
  92. Global Const MB_TIMEOUT_20 = MB_TIMEOUT_4 Or MB_TIMEOUT_16
  93. Global Const MB_TIMEOUT_22 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_16
  94. Global Const MB_TIMEOUT_24 = MB_TIMEOUT_8 Or MB_TIMEOUT_16
  95. Global Const MB_TIMEOUT_26 = MB_TIMEOUT_2 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  96. Global Const MB_TIMEOUT_28 = MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  97. Global Const MB_TIMEOUT_30 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  98.  
  99. Global Const MB_DISPLAY_TIMEOUT = 524288
  100.  
  101. ' definition for properties for language management
  102. Global Const RS_CAPTION = 1
  103. Global Const RS_TEXT = 2
  104. Global Const RS_DATAFIELD = 4
  105. Global Const RS_DATASOURCE = 8
  106. Global Const RS_TAG = 16
  107. Global Const RS_MENU = 32
  108. Global Const RS_ALL = 255
  109.  
  110. ' definition for accessing methods in OBJECT controls (ocx)
  111. Global Const OBJ_MTD_CLEAR = 0
  112.  
  113. ' definition for accessing properties in OBJECT controls (ocx or vbx)
  114. Global Const OBJ_CAPTION = 0
  115. Global Const OBJ_CLASS = 1
  116. Global Const OBJ_CONTAINER = 2
  117. Global Const OBJ_DATAFIELD = 3
  118. Global Const OBJ_FORM = 4
  119. Global Const OBJ_INDEX = 5
  120. Global Const OBJ_NAME = 6
  121. Global Const OBJ_NAMEINDEX = 7
  122. Global Const OBJ_TAG = 8
  123. Global Const OBJ_TEXT = 9
  124.  
  125. ' definition for error type for PATTERNMATCHEXT
  126. Global Const MATCH_HEXA = 17
  127. Global Const MATCH_INTERNAL_ERROR = 16
  128. Global Const MATCH_PATTERN = 15
  129. Global Const MATCH_LITERAL = 14
  130. Global Const MATCH_RANGE = 13
  131. Global Const MATCH_ABORT = 12
  132. Global Const MATCH_END = 11
  133. Global Const MATCH_VALID = -1
  134.  
  135. Global Const PATTERN_VALID = 0
  136. Global Const PATTERN_INVALID = 1
  137. Global Const PATTERN_ESC = 2
  138. Global Const PATTERN_RANGE = 3
  139. Global Const PATTERN_CLOSE = 4
  140. Global Const PATTERN_EMPTY = 5
  141. Global Const PATTERN_INTERNAL_ERROR = 6
  142. Global Const PATTERN_HEXA = 7
  143.  
  144. ' definition for error type for ISFILENAMEVALID
  145. Global Const IFV_ERROR = 0
  146. Global Const IFV_NAME_TOO_LONG = 1
  147. Global Const IFV_EXT_TOO_LONG = 2
  148. Global Const IFV_TOO_MANY_BACKSLASH = 3
  149. Global Const IFV_BAD_DRIVE_LETTER = 4
  150. Global Const IFV_BAD_COLON_POS = 5
  151. Global Const IFV_EXT_WITHOUT_NAME = 6
  152.  
  153. ' definition for variable type in DISK ARRAY
  154. Global Const DA_BYTE = 1
  155. Global Const DA_TYPE = 0
  156. Global Const DA_INTEGER = -2
  157. Global Const DA_LONG = -3
  158. Global Const DA_SINGLE = -4
  159. Global Const DA_DOUBLE = -5
  160. Global Const DA_CURRENCY = -6
  161.  
  162. ' definition for error type in DISK ARRAY
  163. Global Const DA_NO_ERROR = True
  164. Global Const DA_EMPTY_FILENAME = 1
  165. Global Const DA_BAD_FILENAME = 2
  166. Global Const DA_CAN_KILL_FILE = 3
  167. Global Const DA_CAN_NOT_OPEN_FILE = 4
  168. Global Const DA_FILE_NOT_FOUND = 5
  169. Global Const DA_BAD_TYPE = 6
  170. Global Const DA_BAD_ROWS = 7
  171. Global Const DA_BAD_COLS = 8
  172. Global Const DA_BAD_SHEETS = 9
  173. Global Const DA_CAN_NOT_WRITE_HEADER = 10
  174. Global Const DA_CAN_NOT_WRITE_PART = 11
  175. Global Const DA_CAN_NOT_WRITE_REMAIN = 12
  176. Global Const DA_CAN_NOT_READ_HEADER = 13
  177. Global Const DA_HEADER_SIZE = 14
  178. Global Const DA_BAD_SIGNATURE = 15
  179. Global Const DA_FILE_SIZE_MISMATCH = 16
  180. Global Const DA_CAN_NOT_SEEK = 17
  181. Global Const DA_INVALID_HANDLE = 18
  182. Global Const DA_CAN_NOT_READ_PART = 19
  183. Global Const DA_CAN_NOT_READ_REMAIN = 20
  184.  
  185. ' definition for error type in HUGE MEMORY ARRAY
  186. Global Const HMA_NO_ERROR = True
  187. Global Const HMA_NO_MEMORY = 1
  188. Global Const HMA_BAD_TYPE = 2
  189. Global Const HMA_BAD_ROWS = 3
  190. Global Const HMA_BAD_COLS = 4
  191. Global Const HMA_BAD_SHEETS = 5
  192. Global Const HMA_INVALID_HANDLE = 6
  193.  
  194. ' definition for error type in SERIAL DATA
  195. Global Const SD_SERIAL_NOT_FOUND = 1
  196. Global Const SD_CAN_NOT_OPEN_FILE = 2
  197.  
  198. ' definition for File I/O
  199. Global Const EOFILE = -1
  200. Global Const SEEK_CUR = 1
  201. Global Const SEEK_END = 2
  202. Global Const SEEK_SET = 0
  203.  
  204. ' definition for file sort
  205. Global Const SORT_ASCENDING = 1
  206. Global Const SORT_DESCENDING = 2
  207. Global Const SORT_CASE_SENSITIVE = 4
  208. Global Const SORT_CASE_INSENSITIVE = 8
  209.  
  210. ' definition for compress/expand
  211. Global Const LZH_ENCODE = True
  212. Global Const LZH_DECODE = False
  213.  
  214. ' definition for PROPERNAME2
  215. Global Const PN_UPPERCASE = 1
  216. Global Const PN_PUNCTUATION = 2
  217. Global Const PN_KEEP_ORIGINAL = 4
  218. Global Const PN_ONLY_LEADER_SPACE = 8
  219.  
  220. ' definition for matrix fill
  221. Global Const MATRIX_ZERO = 0
  222. Global Const MATRIX_UNIT = 1
  223.  
  224. ' definition for FX picture
  225. Global Const FX_HORIZONTAL = 1
  226. Global Const FX_VERTICAL = 2
  227. Global Const FX_DIAGONAL_SQUARE = 3
  228. Global Const FX_RECTANGLE = 4
  229.  
  230. ' structure for splittin path
  231. Type tagSPLITPATH
  232.    nDrive            As String
  233.    nDir              As String
  234.    nName             As String
  235.    nExt              As String
  236. End Type
  237.  
  238. ' structure for file version information
  239. Type tagFILEVERSIONINFO
  240.    VersionProduct    As String
  241.    VersionFile       As String
  242.    CompanyName       As String
  243.    FileDescription   As String
  244.    FileVersion       As String
  245.    InternalName      As String
  246.    LegalCopyright    As String
  247.    LegalTrademarks   As String
  248.    Comments          As String
  249.    ProductName       As String
  250.    ProductVersion    As String
  251. End Type
  252.  
  253. ' structure for file attributes
  254. Type FileAttributeType
  255.    ErrNo             As Integer
  256.    Archive           As Integer
  257.    Hidden            As Integer
  258.    Normal            As Integer
  259.    ReadOnly          As Integer
  260.    SubDir            As Integer
  261.    System            As Integer
  262.    VolId             As Integer
  263. End Type
  264.  
  265. ' structure for VB array
  266. Type ArrayType
  267.    Bounds            As Long
  268.    LBound            As Integer
  269.    UBound            As Integer
  270.    ElemSize          As Integer
  271.    IndexCount        As Integer
  272.    TotalElem         As Integer
  273. End Type
  274.  
  275. ' structure for modules
  276. Type tagMODULEENTRY
  277.    dwSize            As Long
  278.    szModule          As String * 10
  279.    hModule           As Integer
  280.    wcUsage           As Integer
  281.    szExePath         As String * 256
  282.    wNext             As Integer
  283. End Type
  284.  
  285. ' structure for tasks
  286. Type tagTASKENTRY
  287.    dwSize            As Long
  288.    hTask             As Integer
  289.    hTaskParent       As Integer
  290.    hInst             As Integer
  291.    hModule           As Integer
  292.    wSS               As Integer
  293.    wSP               As Integer
  294.    wStackTop         As Integer
  295.    wStackMinimum     As Integer
  296.    wStackBottom      As Integer
  297.    wcEvents          As Integer
  298.    hQueue            As Integer
  299.    szModule          As String * 10
  300.    wPSPOffset        As Integer
  301.    hNext             As Integer
  302. End Type
  303.  
  304. ' structure for disk array
  305. Type tagDISKARRAY
  306.    daSize            As Integer           'size of the type'd
  307.    signature         As String * 7        'signature
  308.    nFilename         As String * 64       'name of the file
  309.    nType             As Integer           'variable type
  310.    nRows             As Long              'number of rows
  311.    nCols             As Long              'number of cols
  312.    nSheets           As Long              'number of sheets
  313.    rHandle           As Integer           'returned handle for use with other functions
  314.    rElementSize      As Integer           'returned size of a element
  315.    rFileSize         As Long              'returned size of the file
  316.    rParts            As Long              'returned total part
  317.    rRemain           As Long              'returned size of the remain part
  318.    rSheetSize        As Long              'size of a sheet
  319.    rOffset1          As Long              'returned offset 1
  320.    rOffset2          As Long              'returned offset 2
  321.    rTime             As Long              'time for the last correct transaction
  322.    nIsTyped          As Integer           'is nType a type'd variable
  323.    Dummy             As String * 7        'reserved for future use
  324. End Type
  325.  
  326. ' structure for multiple disk array
  327. Type tagMULTIPLEDISKARRAY
  328.    daSize               As Integer        'size of the structure
  329.    signature            As String * 7     'signature
  330.    nFilename            As String * 64    'name of the file
  331.    nType(1 To 20)       As Integer        'standard variable type (for 20 arrays)
  332.    nIsTyped(1 To 20)    As Integer        'is a type'd (for 20 arrays)
  333.    nRows(1 To 20)       As Long           'number of rows (for 20 arrays)
  334.    nCols(1 To 20)       As Long           'number of cols (for 20 arrays)
  335.    nSheets(1 To 20)     As Long           'number of sheets (for 20 arrays)
  336.    rHandle              As Integer        'returned handle for use with other functions
  337.    rFileSize            As Long           'returned size of the file
  338.    rElementSz(1 To 20)  As Integer        'returned size of a element (for 20 arrays)
  339.    rSheetSz(1 To 20)    As Long           'size of a sheet (for 20 arrays)
  340.    rOffsetPos(1 To 20)  As Long           'position of each array in the file (for 20 arrays)
  341.    rOffset1             As Long           'returned offset 1
  342.    rOffset2             As Long           'returned offset 2
  343.    rTime                As Long           'time for the last correct transaction
  344.    Dummy                As String * 29    'reserved for future use
  345. End Type
  346.  
  347. ' structure for huge memory array
  348. Type tagHMA
  349.    daSize            As Integer           'size of the type'd
  350.    nType             As Integer           'variable type
  351.    nRows             As Long              'number of rows
  352.    nCols             As Long              'number of cols
  353.    nSheets           As Long              'number of sheets
  354.    rHandle           As Integer           'returned handle for use with other functions
  355.    rElementSize      As Long              'returned size of a element
  356.    rMemorySize       As Long              'returned size of the memory used
  357.    rParts            As Long              'returned total part
  358.    rRemain           As Long              'returned size of the remain part
  359.    rSheetSize        As Long              'size of a sheet
  360.    rOffset           As Long              'returned offset
  361.    nIsTyped          As Integer           'is nType a type'd variable
  362.    Dummy             As String * 20       'reserved for future use
  363. End Type
  364.  
  365. ' structure for serialization
  366. Type tagSERIALDATA
  367.    Description1      As String * 50       'serialization description 1
  368.    Description2      As String * 50       'serialization description 2
  369.    Number            As Long              'serialization number
  370.    Dummy             As String * 50       'reserved for future use
  371. End Type
  372.  
  373. ' structure for 2-D geometry types
  374. Type tagVECTOR2
  375.    x                 As Double
  376.    y                 As Double
  377. End Type
  378.  
  379. ' structure for 3-D geometry types
  380. Type tagVECTOR3
  381.    x                 As Double
  382.    y                 As Double
  383.    z                 As Double
  384. End Type
  385.  
  386. ' structure for get/set Media ID
  387. Type tagMEDIAID
  388.    InfoLevel         As Integer
  389.    SerialNumber      As Long
  390.    VolLabel          As String * 11
  391.    FileSysType       As String * 8
  392. End Type
  393.  
  394. ' structure for Get Control Rectangle
  395. Type tagRECT
  396.    Left              As Integer
  397.    Top               As Integer
  398.    Right             As Integer
  399.    Bottom            As Integer
  400. End Type
  401.  
  402. ' structure for 3D-Meter
  403. Type tag3DMeter
  404.    CrtValue          As Long              'current value
  405.    MaxValue          As Long              'maximum value
  406.    BackColor         As Long
  407.    ForeColor         As Long
  408.    Polygon           As Integer           '0  : rectangle, 1 : triangle, 2 : trapezium, 3 : ellipse , 4 : bars
  409.    BarSize           As Integer           'size of a bar (polygon = 4) (in pixel : min=1,max=20,default=10)
  410.    SpaceBars         As Integer           'space between bars (polygon = 4) (in pixel : min=1,max=4,default=2)
  411.    Direction         As Integer           '0  : horizontal, other : vertical
  412.    Threed            As Integer           '-1 : indented, 1 : raised
  413.    Thickness         As Integer
  414.    Percent           As Integer           'internal use, do not change
  415.    OldPolygon        As Integer           'internal use, do not change
  416.    OldDirection      As Integer           'internal use, do not change
  417.    OldThreeD         As Integer           'internal use, do not change
  418.    HatchBrush        As Integer           '-1 : solid brush, 0 : hor., 1 : ver., 2 : downward diag., 3 : upward diag., 4 : cross, 5 : diag.cross
  419. End Type
  420.  
  421. ' structure for File Information
  422. Type tagFILEINFO
  423.    fSize             As Long              'size of the file
  424.    fDate             As Long              'date of the file (scalar date)
  425.    fTime             As Long              'time of the file (scalar time)
  426.    fAttribute        As Integer           'attribute of the file
  427. End Type
  428.    
  429. Rem Don't Remove It
  430. Declare Sub c3D Lib "t2win-16.dll" (ByVal Ctl As Control, ByVal Method As Integer, ByVal Thickness As Integer)
  431. Declare Sub c3DMeter Lib "t2win-16.dll" (ByVal Ctl As Control, Meter As tag3DMeter)
  432. Declare Function cAddD Lib "t2win-16.dll" (array() As Double, ByVal nValue As Double) As Integer
  433. Declare Function cAddDigit Lib "t2win-16.dll" (Txt As String) As Integer
  434. Declare Function cAddI Lib "t2win-16.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  435. Declare Function cAddL Lib "t2win-16.dll" (array() As Long, ByVal nValue As Long) As Integer
  436. Declare Function cAddS Lib "t2win-16.dll" (array() As Single, ByVal nValue As Single) As Integer
  437. Declare Function cAddTime Lib "t2win-16.dll" (ByVal Hr As Integer) As Integer
  438. Declare Function cAddTwoTimes Lib "t2win-16.dll" (ByVal Time1 As String, ByVal Time2 As String) As String
  439. Declare Function cAlign Lib "t2win-16.dll" (Txt As String, ByVal TypeAlign As Integer, ByVal NewLength As Integer) As String
  440. Declare Function cAllSubDirectories Lib "t2win-16.dll" (ByVal lpBaseDirectory As String, nDir As Integer) As String
  441. Declare Function cAndToken Lib "t2win-16.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  442. Declare Function cAndTokenIn Lib "t2win-16.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  443. Declare Function cArabicToRoman Lib "t2win-16.dll" (Var As Variant) As String
  444. Declare Sub cArrangeDesktopIcons Lib "t2win-16.dll" ()
  445. Declare Function cArrayOnDisk Lib "t2win-16.dll" (ByVal file As String, array() As Any, ByVal GetPut As Integer) As Long
  446. Declare Function cArrayPrm Lib "t2win-16.dll" (array() As Any, nArray As Any) As Integer
  447. Declare Function cArrayStringOnDisk Lib "t2win-16.dll" (ByVal file As String, array() As String, ByVal GetPut As Integer, rRecords As Long) As Long
  448. Declare Function cArrayToComboBox Lib "t2win-16.dll" (ByVal hWnd As Integer, array() As String) As Integer
  449. Declare Function cArrayToListBox Lib "t2win-16.dll" (ByVal hWnd As Integer, array() As String) As Integer
  450. Declare Function cB2I Lib "t2win-16.dll" (ByVal Txt As String) As Integer
  451. Declare Function cB2L Lib "t2win-16.dll" (ByVal Txt As String) As Long
  452. Declare Function cBaseConversion Lib "t2win-16.dll" (ByVal Num As String, ByVal RadixIn As Integer, ByVal RadixOut As Integer) As String
  453. Declare Function cBetween Lib "t2win-16.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  454. Declare Function cBigAdd Lib "t2win-16.dll" (Num1 As String, Num2 As String) As String
  455. Declare Function cBigDiv Lib "t2win-16.dll" (Num1 As String, Num2 As String) As String
  456. Declare Function cBigMul Lib "t2win-16.dll" (Num1 As String, Num2 As String) As String
  457. Declare Function cBigNum Lib "t2win-16.dll" (ByVal n1 As String, ByVal op As Integer, ByVal n2 As String) As String
  458. Declare Function cBigSub Lib "t2win-16.dll" (Num1 As String, Num2 As String) As String
  459. Declare Function cBigFmt Lib "t2win-16.dll" (Num As String, ByVal Length As Integer) As String
  460. Declare Function cBlockCharFromLeft Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  461. Declare Function cBlockCharFromRight Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  462. Declare Sub cCenterWindow Lib "t2win-16.dll" (ByVal hWnd As Integer)
  463. Declare Sub cChangeChars Lib "t2win-16.dll" (Txt As String, CharSet As String, NewCharSet As String)
  464. Declare Sub cChangeCharsUntil Lib "t2win-16.dll" (Txt As String, CharSet As String, NewCharSet As String, nUntil As String)
  465. Declare Sub cChangeTaskName Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal Text As String)
  466. Declare Function cChDir Lib "t2win-16.dll" (ByVal lpDir As String) As Integer
  467. Declare Function cChDrive Lib "t2win-16.dll" (ByVal lpDrive As String) As Integer
  468. Declare Function cCheckChars Lib "t2win-16.dll" (Txt As String, CharSet As String) As Integer
  469. Declare Function cCheckMinuteChange Lib "t2win-16.dll" () As Integer
  470. Declare Function cCheckNumericity Lib "t2win-16.dll" (Txt As String) As Integer
  471. Declare Function cCheckSecondChange Lib "t2win-16.dll" () As Integer
  472. Declare Function cCheckTime Lib "t2win-16.dll" (ByVal Hr As Integer, ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  473. Declare Function cCheckWait Lib "t2win-16.dll" (ByVal nTimer As Integer) As Integer
  474. Declare Function cCloseAllEditForm Lib "t2win-16.dll" () As Integer
  475. Declare Function cHashMD5 Lib "t2win-16.dll" (Text As String) As String
  476. Declare Function cCmpFileAttribute Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String) As Integer
  477. Declare Function cCmpFileContents Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String, ByVal Sensitivity As Integer) As Integer
  478. Declare Function cCmpFileSize Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String) As Integer
  479. Declare Function cCmpFileTime Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String) As Integer
  480. Declare Sub cCnvASCIItoEBCDIC Lib "t2win-16.dll" (Txt As String)
  481. Declare Sub cCnvEBCDICtoASCII Lib "t2win-16.dll" (Txt As String)
  482. Declare Function cCombination Lib "t2win-16.dll" (ByVal nItems As Integer, ByVal mTimes As Integer) As Double
  483. Declare Function cCompact Lib "t2win-16.dll" (Txt As String) As String
  484. Declare Function cCompareTypeString Lib "t2win-16.dll" Alias "cTypesCompare" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer) As Integer
  485. Declare Function cCompareStringType Lib "t2win-16.dll" Alias "cTypesCompare" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer) As Integer
  486. Declare Function cCompress Lib "t2win-16.dll" (Txt As String) As String
  487. Declare Function cCompressTab Lib "t2win-16.dll" (Txt As String, ByVal nTab As Integer) As String
  488. Declare Sub cCtl3D Lib "t2win-16.dll" (ByVal Ctl As Control, ByVal LeftTopColor As Long, ByVal RightBottomColor As Long, ByVal Thickness As Integer)
  489. Declare Function cConvert Lib "t2win-16.dll" (Value As String, ByVal MaskFrom As String, ByVal MaskTo As String, ByVal Size As Integer) As String
  490. Declare Function cCount Lib "t2win-16.dll" (Txt As String, Separator As String) As Integer
  491. Declare Function cCountDirectories Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  492. Declare Function cCountFiles Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  493. Declare Function cCountI Lib "t2win-16.dll" (array() As Integer, ByVal Value As Integer) As Long
  494. Declare Function cCountL Lib "t2win-16.dll" (array() As Long, ByVal Value As Long) As Long
  495. Declare Function cCountS Lib "t2win-16.dll" (array() As Single, ByVal Value As Single) As Long
  496. Declare Function cCountD Lib "t2win-16.dll" (array() As Double, ByVal Value As Double) As Long
  497. Declare Function cCplAlpha Lib "t2win-16.dll" (Txt As String) As String
  498. Declare Function cCplDigit Lib "t2win-16.dll" (Txt As String) As String
  499. Declare Function cCreateAndFill Lib "t2win-16.dll" (ByVal Length As Integer, Txt As String) As String
  500. Declare Function cCreateBits Lib "t2win-16.dll" (ByVal nBits As Integer) As String
  501. Declare Function cCurrentTime Lib "t2win-16.dll" () As Integer
  502. Declare Function cCVB Lib "t2win-16.dll" (Value As String) As Integer
  503. Declare Function cCVC Lib "t2win-16.dll" (Value As String) As Currency
  504. Declare Function cCVD Lib "t2win-16.dll" (Value As String) As Double
  505. Declare Function cCVI Lib "t2win-16.dll" (Value As String) As Integer
  506. Declare Function cCVL Lib "t2win-16.dll" (Value As String) As Long
  507. Declare Function cCVS Lib "t2win-16.dll" (Value As String) As Single
  508. Declare Function cDAClear Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY) As Integer
  509. Declare Function cDAClearCol Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer
  510. Declare Function cDAClearRow Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer
  511. Declare Function cDAClearSheet Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal sheet As Long) As Integer
  512. Declare Sub cDAClose Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal DeleteFile As Integer)
  513. Declare Function cDACreate Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal CreateOrUse As Integer) As Integer
  514. Declare Function cDAGet Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  515. Declare Sub cDAGetType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  516. Declare Sub cDAPut Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  517. Declare Sub cDAPutType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  518. Declare Sub cDArGet Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant)
  519. Declare Sub cDArGetType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any)
  520. Declare Sub cDArPut Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant)
  521. Declare Sub cDArPutType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any)
  522. Declare Function cDAsClearCol Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long) As Integer
  523. Declare Function cDAsClearRow Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long) As Integer
  524. Declare Sub cDAsGet Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  525. Declare Sub cDAsGetType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  526. Declare Sub cDAsPut Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  527. Declare Sub cDAsPutType Lib "t2win-16.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  528. Declare Function cDateToScalar Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Long
  529. Declare Function cDayOfWeek Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  530. Declare Function cDayOfYear Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  531. Declare Function cDaysInMonth Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer) As Integer
  532. Declare Sub cDecrI Lib "t2win-16.dll" (Value As Integer)
  533. Declare Sub cDecrL Lib "t2win-16.dll" (Value As Long)
  534. Declare Function cDecrypt Lib "t2win-16.dll" (Txt As String, password As String, ByVal level As Integer) As String
  535. Declare Function cDeviationD Lib "t2win-16.dll" (array() As Double) As Double
  536. Declare Function cDeviationI Lib "t2win-16.dll" (array() As Integer) As Double
  537. Declare Function cDeviationL Lib "t2win-16.dll" (array() As Long) As Double
  538. Declare Function cDeviationS Lib "t2win-16.dll" (array() As Single) As Double
  539. Declare Sub cDisableCtlRedraw Lib "t2win-16.dll" (Obj As Object)
  540. Declare Sub cDisableFI Lib "t2win-16.dll" (Obj As Object)
  541. Declare Sub cDisableForm Lib "t2win-16.dll" (ByVal hWnd As Integer)
  542. Declare Sub cDisableRedraw Lib "t2win-16.dll" (ByVal hWnd As Integer)
  543. Declare Function cDOSGetMediaID Lib "t2win-16.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer
  544. Declare Function cDOSGetVolumeLabel Lib "t2win-16.dll" (ByVal nDrive As String) As String
  545. Declare Function cDOSSetMediaID Lib "t2win-16.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer
  546. Declare Function cDOSSetVolumeLabel Lib "t2win-16.dll" (ByVal nDrive As String, ByVal nVolumeLabel As String) As Integer
  547. Declare Sub cEnableCtlRedraw Lib "t2win-16.dll" (Obj As Object)
  548. Declare Sub cEnableFI Lib "t2win-16.dll" (Obj As Object)
  549. Declare Sub cEnableForm Lib "t2win-16.dll" (ByVal hWnd As Integer)
  550. Declare Sub cEnableRedraw Lib "t2win-16.dll" (ByVal hWnd As Integer)
  551. Declare Function cEncrypt Lib "t2win-16.dll" (Txt As String, password As String, ByVal level As Integer) As String
  552. Declare Function cEXEnameActiveWindow Lib "t2win-16.dll" () As String
  553. Declare Function cEXEnameWindow Lib "t2win-16.dll" (ByVal hModule As Integer) As String
  554. Declare Function cEXEnameTask Lib "t2win-16.dll" (ByVal nFilename As String) As String
  555. Declare Function cExitWindowsAndExecute Lib "t2win-16.dll" (ByVal lpszExe As String, ByVal lpszParams As String) As Integer
  556. Declare Function cExpandTab Lib "t2win-16.dll" (Txt As String, ByVal nTab As Integer) As String
  557. Declare Function cFileChangeChars Lib "t2win-16.dll" (ByVal nFilename As String, CharSet As String, NewCharSet As String, ByVal nFileTemp As String) As Long
  558. Declare Function cFileCompress Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  559. Declare Function cFileCompressTab Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String, ByVal nTab As Integer) As Long
  560. Declare Function cFileCopy Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  561. Declare Function cFileCRC32 Lib "t2win-16.dll" (ByVal lpFilename As String, ByVal Mode As Integer) As Long
  562. Declare Function cFileDateCreated Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  563. Declare Function cFileDecrypt Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String, password As String, ByVal level As Integer) As Long
  564. Declare Function cFileDrive Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  565. Declare Function cFileEncrypt Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String, password As String, ByVal level As Integer) As Long
  566. Declare Function cFileExpand Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  567. Declare Function cFileExpandTab Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String, ByVal nTab As Integer) As Long
  568. Declare Function cFileFilter Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String, Filter As String) As Long
  569. Declare Function cFileFilterNot Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String, Filter As String) As Long
  570. Declare Function cFileGetAttrib Lib "t2win-16.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  571. Declare Function cFileLastDateAccess Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  572. Declare Function cFileLastDateModified Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  573. Declare Function cFileLastTimeAccess Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  574. Declare Function cFileLastTimeModified Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  575. Declare Function cFileLineCount Lib "t2win-16.dll" (ByVal lpFilename As String) As Long
  576. Declare Function cFileMerge Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String, ByVal fileTo As String) As Long
  577. Declare Function cFilePathExists Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  578. Declare Function cFileResetAllAttrib Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  579. Declare Function cFileResetArchive Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  580. Declare Function cFileResetFlag Lib "t2win-16.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  581. Declare Function cFileResetHidden Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  582. Declare Function cFileResetReadOnly Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  583. Declare Function cFileResetSystem Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  584. Declare Function cFileSearch Lib "t2win-16.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  585. Declare Function cFileSearchAndReplace Lib "t2win-16.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Replace As String, ByVal nFileTemp As String, ByVal Sensitivity As Integer) As Long
  586. Declare Function cFileSearchCount Lib "t2win-16.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  587. Declare Function cFileSetAllAttrib Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  588. Declare Function cFileSetArchive Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  589. Declare Function cFileSetAttrib Lib "t2win-16.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  590. Declare Function cFileSetFlag Lib "t2win-16.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  591. Declare Function cFileSetHidden Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  592. Declare Function cFileSetReadOnly Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  593. Declare Function cFileSetSystem Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  594. Declare Function cFilesInDirectory Lib "t2win-16.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  595. Declare Function cFilesInDirOnDisk Lib "t2win-16.dll" (ByVal nFile As String, ByVal nFilename As String, ByVal nAttribute As Integer) As Integer
  596. Declare Function cFilesInDirToArray Lib "t2win-16.dll" (ByVal nFilename As String, ByVal nAttribute As Integer, array() As String) As Integer
  597. Declare Function cFilesInfoInDir Lib "t2win-16.dll" (ByVal nFilename As String, FILEINFO As tagFILEINFO, ByVal FirstNext As Integer) As String
  598. Declare Function cFileSize Lib "t2win-16.dll" (ByVal lpFilename As String) As Long
  599. Declare Function cFileSort Lib "t2win-16.dll" (ByVal FileIn As String, ByVal FileOut As String, ByVal SortMethod As Integer, ByVal RecordLength As Long, ByVal KeyOffset As Long, ByVal KeyLength As Long, rRecords As Integer) As Long
  600. Declare Function cFilesSize Lib "t2win-16.dll" (ByVal nFilename As String) As Long
  601. Declare Function cFilesSizeOnDisk Lib "t2win-16.dll" (ByVal nFilename As String) As Long
  602. Declare Function cFilesSlack Lib "t2win-16.dll" (ByVal nFilename As String, Size1 As Long, Size2 As Long) As Integer
  603. Declare Function cFileStatistics Lib "t2win-16.dll" (ByVal nFilename As String, nLines As Long, nWords As Long, nChars As Long) As Long
  604. Declare Function cFileTimeCreated Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  605. Declare Function cFileToComboBox Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer
  606. Declare Function cFileToListBox Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer
  607. Declare Function cFileToUpper Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  608. Declare Function cFileToLower Lib "t2win-16.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  609. Declare Sub cFill Lib "t2win-16.dll" (Txt As String, Fill As String)
  610. Declare Function cFillD Lib "t2win-16.dll" (array() As Double, ByVal nValue As Double) As Integer
  611. Declare Function cFillI Lib "t2win-16.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  612. Declare Function cFillL Lib "t2win-16.dll" (array() As Long, ByVal nValue As Long) As Integer
  613. Declare Function cFillS Lib "t2win-16.dll" (array() As Single, ByVal nValue As Single) As Integer
  614. Declare Function cFillIncrD Lib "t2win-16.dll" (array() As Double, ByVal nValue As Double, ByVal Increment As Double) As Integer
  615. Declare Function cFillIncrI Lib "t2win-16.dll" (array() As Integer, ByVal nValue As Integer, ByVal Increment As Integer) As Integer
  616. Declare Function cFillIncrL Lib "t2win-16.dll" (array() As Long, ByVal nValue As Long, ByVal Increment As Long) As Integer
  617. Declare Function cFillIncrS Lib "t2win-16.dll" (array() As Single, ByVal nValue As Single, ByVal Increment As Single) As Integer
  618. Declare Function cFilterBlocks Lib "t2win-16.dll" (Txt As String, Delimitor As String) As String
  619. Declare Function cFilterChars Lib "t2win-16.dll" (Txt As String, CharSet As String) As String
  620. Declare Function cFilterFirstChars Lib "t2win-16.dll" (Txt As String, CharSet As String) As String
  621. Declare Function cFilterNotChars Lib "t2win-16.dll" (Txt As String, CharSet As String) As String
  622. Declare Function cFindBitReset Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As Integer
  623. Declare Function cFindBitSet Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As Integer
  624. Declare Function cFindFileInEnv Lib "t2win-16.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As Integer
  625. Declare Function cFindFileInPath Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  626. Declare Function cFloppyInfo Lib "t2win-16.dll" (ByVal nDrive As String, nHeads As Integer, nCylinders As Integer, nSectors As Integer) As Integer
  627. Declare Function cFraction Lib "t2win-16.dll" (ByVal nValue As Double, nNumerator As Double, nDenominator As Double) As Double
  628. Declare Function cFromBinary Lib "t2win-16.dll" (Text As String) As String
  629. Declare Function cFromBinary2 Lib "t2win-16.dll" (Text As String, Bin As String) As String
  630. Declare Function cFromHexa Lib "t2win-16.dll" (Text As String) As String
  631. Declare Function cFullPath Lib "t2win-16.dll" (ByVal nFilename As String) As String
  632. Declare Function cFXpicture Lib "t2win-16.dll" (ByVal Method As Integer, ByVal hdc1 As Integer, ByVal hbitmap As Integer, ByVal parameter As Integer, ByVal delay As Integer) As Integer
  633. Declare Function cGet Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  634. Declare Function cGetAscTime Lib "t2win-16.dll" (ByVal nLanguage As Integer) As String
  635. Declare Function cGetBit Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As Integer
  636. Declare Function cGetBlock Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String
  637. Declare Function cGetChangeTaskName Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal Text As String) As String
  638. Declare Function cGetClassName Lib "t2win-16.dll" (ByVal hWnd As Integer) As String
  639. Declare Function cGetCountry Lib "t2win-16.dll" () As String
  640. Declare Function cGetCountryCode Lib "t2win-16.dll" () As String
  641. Declare Function cGetCtlCaption Lib "t2win-16.dll" (Obj As Object) As String
  642. Declare Function cGetCtlClass Lib "t2win-16.dll" (Obj As Object) As String
  643. Declare Function cGetCtlContainer Lib "t2win-16.dll" (Obj As Object) As String
  644. Declare Function cGetCtlDataField Lib "t2win-16.dll" (Obj As Object) As String
  645. Declare Function cGetCtlForm Lib "t2win-16.dll" (Obj As Object) As String
  646. Declare Function cGetCtlIndex Lib "t2win-16.dll" (Obj As Object) As Integer
  647. Declare Function cGetCtlName Lib "t2win-16.dll" (Obj As Object) As String
  648. Declare Function cGetCtlNameIndex Lib "t2win-16.dll" (Obj As Object) As String
  649. Declare Sub cGetCtlRect Lib "t2win-16.dll" (ByVal Ctl As Control, RECT As Any)
  650. Declare Sub cGetCtlRectTwips Lib "t2win-16.dll" (ByVal Ctl As Control, RECT As Any)
  651. Declare Function cGetCtlTag Lib "t2win-16.dll" (Obj As Object) As String
  652. Declare Function cGetCtlTagSized Lib "t2win-16.dll" (Obj As Object, ByVal nSize As Integer) As String
  653. Declare Function cGetCtlText Lib "t2win-16.dll" (Obj As Object) As String
  654. Declare Function cGetCurrency Lib "t2win-16.dll" () As String
  655. Declare Function cGetCurrentDrive Lib "t2win-16.dll" () As String
  656. Declare Function cGetDateFormat Lib "t2win-16.dll" () As String
  657. Declare Function cGetDateSeparator Lib "t2win-16.dll" () As String
  658. Declare Function cGetDefaultCurrentDir Lib "t2win-16.dll" () As String
  659. Declare Function cGetDefaultPrinter Lib "t2win-16.dll" () As String
  660. Declare Function cGetDevices Lib "t2win-16.dll" () As String
  661. Declare Function cGetDiskClusterSize Lib "t2win-16.dll" (ByVal lpDrive As String) As Long
  662. Declare Function cGetDiskFree Lib "t2win-16.dll" (ByVal lpDrive As String) As Long
  663. Declare Function cGetDiskSpace Lib "t2win-16.dll" (ByVal lpDrive As String) As Long
  664. Declare Function cGetDiskUsed Lib "t2win-16.dll" (ByVal lpDrive As String) As Long
  665. Declare Function cGetDriveCurrentDir Lib "t2win-16.dll" (ByVal lpDrive As String) As String
  666. Declare Function cGetDriveType Lib "t2win-16.dll" (ByVal lpDrive As String) As Integer
  667. Declare Function cGetFileVersion Lib "t2win-16.dll" (ByVal FileName As String, ByVal nFonction As Integer) As String
  668. Declare Function cGetFileVersionInfo Lib "t2win-16.dll" (ByVal FileName As String, FILEVERSIONINFO As Any) As Integer
  669. Declare Function cGetFullNameInEnv Lib "t2win-16.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As String
  670. Declare Function cGetFullNameInPath Lib "t2win-16.dll" (ByVal lpFilename As String) As String
  671. Declare Function cGetHourFormat Lib "t2win-16.dll" () As String
  672. Declare Function cGetHwnd Lib "t2win-16.dll" (Obj As Object) As Integer
  673. Declare Function cGetIn Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  674. Declare Function cGetIni Lib "t2win-16.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String) As String
  675. Declare Function cGetInPart Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  676. Declare Function cGetInPartR Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  677. Declare Function cGetInR Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  678. Declare Function cGetLanguage Lib "t2win-16.dll" () As String
  679. Declare Function cGetListSeparator Lib "t2win-16.dll" () As String
  680. Declare Function cGetLongDay Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  681. Declare Function cGetLongMonth Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  682. Declare Function cGetNetConnection Lib "t2win-16.dll" (ByVal lpDrive As String, ErrCode As Integer) As String
  683. Declare Function cGetPid Lib "t2win-16.dll" () As Integer
  684. Declare Function cGetPrinterPorts Lib "t2win-16.dll" () As String
  685. Declare Function cGetSectionItems Lib "t2win-16.dll" (ByVal Section As String, ByVal InitFile As String, nItems As Integer) As String
  686. Declare Function cGetShortDay Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  687. Declare Function cGetShortMonth Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  688. Declare Function cGetSmallDay Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  689. Declare Function cGetSystemDirectory Lib "t2win-16.dll" () As String
  690. Declare Function cGetTaskName Lib "t2win-16.dll" (ByVal hWnd As Integer) As String
  691. Declare Function cGetTimeSeparator Lib "t2win-16.dll" () As String
  692. Declare Function cGetTinyDay Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  693. Declare Function cGetTinyMonth Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  694. Declare Function cGetVersion Lib "t2win-16.dll" () As Single
  695. Declare Function cGetWindowsDirectory Lib "t2win-16.dll" () As String
  696. Declare Function cGetWinINI Lib "t2win-16.dll" (ByVal Info As Integer) As String
  697. Declare Function cGetWinSection Lib "t2win-16.dll" (ByVal Section As String) As String
  698. Declare Function cGiveBitPalindrome Lib "t2win-16.dll" () As String
  699. Declare Function cH2I Lib "t2win-16.dll" (ByVal Txt As String) As Integer
  700. Declare Function cH2L Lib "t2win-16.dll" (ByVal Txt As String) As Long
  701. Declare Function cHideAllEditForm Lib "t2win-16.dll" () As Integer
  702. Declare Function cHideDebugForm Lib "t2win-16.dll" () As Integer
  703. Declare Function cHourTo Lib "t2win-16.dll" (Txt As String) As Variant
  704. Declare Function cIfInStr Lib "t2win-16.dll" (Txt As String, Operator As String) As String
  705. Declare Sub cIncrI Lib "t2win-16.dll" (Value As Integer)
  706. Declare Sub cIncrL Lib "t2win-16.dll" (Value As Long)
  707. Declare Function cInsertBlocks Lib "t2win-16.dll" (Txt As String, Insert As String) As String
  708. Declare Function cInsertBlocksBy Lib "t2win-16.dll" (Txt As String, Insert As String, Delimitor As String) As String
  709. Declare Function cInsertByMask Lib "t2win-16.dll" (Txt As String, Mask As String, Insert As String) As String
  710. Declare Function cInsertChars Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer, Insert As String) As String
  711. Declare Function cIntoBalance Lib "t2win-16.dll" (Var As Variant) As String
  712. Declare Function cIntoBalanceFill Lib "t2win-16.dll" (Var As Variant) As String
  713. Declare Function cIntoDate Lib "t2win-16.dll" (ByVal nDate As Long) As String
  714. Declare Function cIntoDateFill Lib "t2win-16.dll" (ByVal nDate As Long) As String
  715. Declare Function cIntoDateNull Lib "t2win-16.dll" (ByVal nDate As Long) As String
  716. Declare Function cIntoFixHour Lib "t2win-16.dll" (Var As Variant, ByVal Length As Integer, ByVal fillZero As Integer, ByVal CentiΦme As Integer) As String
  717. Declare Function cIntoHour Lib "t2win-16.dll" (Var As Variant) As String
  718. Declare Function cIntoVarHour Lib "t2win-16.dll" (Var As Variant) As String
  719. Declare Function cIsAlnum Lib "t2win-16.dll" (Txt As String) As Integer
  720. Declare Function cIsAlpha Lib "t2win-16.dll" (Txt As String) As Integer
  721. Declare Function cIsAscii Lib "t2win-16.dll" (Txt As String) As Integer
  722. Declare Function cIsBalance Lib "t2win-16.dll" (ByVal nHour As Long, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  723. Declare Function cIsBitPalindrome Lib "t2win-16.dll" (Txt As String) As Integer
  724. Declare Function cIsCsym Lib "t2win-16.dll" (Txt As String) As Integer
  725. Declare Function cIsCsymf Lib "t2win-16.dll" (Txt As String) As Integer
  726. Declare Function cIsDate Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  727. Declare Function cIsDigit Lib "t2win-16.dll" (Txt As String) As Integer
  728. Declare Function cIsFileArchive Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  729. Declare Function cIsFileEmpty Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  730. Declare Function cIsFileFlag Lib "t2win-16.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  731. Declare Function cIsFileHidden Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  732. Declare Function cIsFileNormal Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  733. Declare Function cIsFilenameValid Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  734. Declare Function cIsFileReadOnly Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  735. Declare Function cIsFileSubDir Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  736. Declare Function cIsFileSystem Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  737. Declare Function cIsFileVolId Lib "t2win-16.dll" (ByVal nFilename As String) As Integer
  738. Declare Function cIsFormEnabled Lib "t2win-16.dll" (ByVal hWnd As Integer) As Integer
  739. Declare Function cIsHour Lib "t2win-16.dll" (ByVal nHour As Integer, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  740. Declare Function cIsISBN Lib "t2win-16.dll" (Txt As String) As Integer
  741. Declare Function cIsLeapYear Lib "t2win-16.dll" (ByVal nYear As Integer) As Integer
  742. Declare Function cIsLower Lib "t2win-16.dll" (Txt As String) As Integer
  743. Declare Function cIsPalindrome Lib "t2win-16.dll" (Txt As String) As Integer
  744. Declare Function cIsPunct Lib "t2win-16.dll" (Txt As String) As Integer
  745. Declare Function cIsSerial Lib "t2win-16.dll" (ByVal file1 As String) As Integer
  746. Declare Function cIsSpace Lib "t2win-16.dll" (Txt As String) As Integer
  747. Declare Function cIsUpper Lib "t2win-16.dll" (Txt As String) As Integer
  748. Declare Function cIsXdigit Lib "t2win-16.dll" (Txt As String) As Integer
  749. Declare Function cKillDir Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  750. Declare Function cKillDirFilesAll Lib "t2win-16.dll" (ByVal lpDir As String, ByVal lpMask As String) As Integer
  751. Declare Function cKillDirs Lib "t2win-16.dll" (ByVal lpDir As String, ByVal HeaderDirectory As Integer) As Integer
  752. Declare Function cKillFile Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  753. Declare Function cKillFileAll Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  754. Declare Function cKillFiles Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  755. Declare Function cKillFilesAll Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  756. Declare Function cLngMsgBox Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String) As Integer
  757. Declare Sub cLngBoxMsg Lib "t2win-16.dll" Alias "cLngMsgBox" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String)
  758. Declare Function cLngInpBox Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Title As String, ByVal Default As String) As String
  759. Declare Sub cLngSysMenu Lib "t2win-16.dll" (ByVal nLanguage As Integer, ByVal hWnd As Integer)
  760. Declare Function cLrc Lib "t2win-16.dll" (Txt As String) As String
  761. Declare Function cMakeDir Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  762. Declare Function cMakeMultipleDir Lib "t2win-16.dll" (ByVal lpFilename As String) As Integer
  763. Declare Function cMakePath Lib "t2win-16.dll" (ByVal nDrive As String, ByVal nDir As String, ByVal nFilename As String, ByVal Ext As String) As String
  764. Declare Sub cMatrixAdd Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  765. Declare Function cMatrixCoFactor Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double
  766. Declare Function cMatrixCompare Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  767. Declare Sub cMatrixCopy Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double)
  768. Declare Function cMatrixDet Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double) As Double
  769. Declare Function cMatrixFill Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal nInit As Integer) As Integer
  770. Declare Function cMatrixInv Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  771. Declare Function cMatrixMinor Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double
  772. Declare Sub cMatrixMul Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  773. Declare Sub cMatrixSub Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  774. Declare Function cMatrixSymToeplitz Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  775. Declare Sub cMatrixTranspose Lib "t2win-16.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double)
  776. Declare Function cMax Lib "t2win-16.dll" (Var1 As Variant, Var2 As Variant) As Variant
  777. Declare Function cMaxD Lib "t2win-16.dll" (array() As Double) As Double
  778. Declare Function cMaxI Lib "t2win-16.dll" (array() As Integer) As Integer
  779. Declare Function cMaxL Lib "t2win-16.dll" (array() As Long) As Long
  780. Declare Function cMaxS Lib "t2win-16.dll" (array() As Single) As Single
  781. Declare Function cMDAClear Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY) As Integer
  782. Declare Function cMDAClearCol Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer
  783. Declare Function cMDAClearRow Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer
  784. Declare Function cMDAClearSheet Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal sheet As Long) As Integer
  785. Declare Sub cMDAClose Lib "t2win-16.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal DeleteFile As Integer)
  786. Declare Function cMDACreate Lib "t2win-16.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal CreateOrUse As Integer) As Integer
  787. Declare Function cMDAGet Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  788. Declare Sub cMDAGetType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  789. Declare Sub cMDAPut Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  790. Declare Sub cMDAPutType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  791. Declare Sub cMDArGet Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant)
  792. Declare Sub cMDArGetType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any)
  793. Declare Sub cMDArPut Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant)
  794. Declare Sub cMDArPutType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any)
  795. Declare Function cMDAsClearCol Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long) As Integer
  796. Declare Function cMDAsClearRow Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long) As Integer
  797. Declare Sub cMDAsGet Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  798. Declare Sub cMDAsGetType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  799. Declare Sub cMDAsPut Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  800. Declare Sub cMDAsPutType Lib "t2win-16.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  801. Declare Function cMeanD Lib "t2win-16.dll" (array() As Double) As Double
  802. Declare Function cMeanI Lib "t2win-16.dll" (array() As Integer) As Double
  803. Declare Function cMeanL Lib "t2win-16.dll" (array() As Long) As Double
  804. Declare Function cMeanS Lib "t2win-16.dll" (array() As Single) As Double
  805. Declare Function cMin Lib "t2win-16.dll" (Var1 As Variant, Var2 As Variant) As Variant
  806. Declare Function cMinD Lib "t2win-16.dll" (array() As Double) As Double
  807. Declare Function cMinI Lib "t2win-16.dll" (array() As Integer) As Integer
  808. Declare Function cMinL Lib "t2win-16.dll" (array() As Long) As Long
  809. Declare Function cMinS Lib "t2win-16.dll" (array() As Single) As Single
  810. Declare Function cMixChars Lib "t2win-16.dll" (Txt As String) As String
  811. Declare Function cMKB Lib "t2win-16.dll" (ByVal Value As Integer) As String
  812. Declare Function cMKC Lib "t2win-16.dll" (ByVal Value As Currency) As String
  813. Declare Function cMKD Lib "t2win-16.dll" (ByVal Value As Double) As String
  814. Declare Function cMKI Lib "t2win-16.dll" (ByVal Value As Integer) As String
  815. Declare Function cMKL Lib "t2win-16.dll" (ByVal Value As Long) As String
  816. Declare Function cMKN Lib "t2win-16.dll" (ByVal Value As String) As String
  817. Declare Function cMKS Lib "t2win-16.dll" (ByVal Value As Single) As String
  818. Declare Function cModuleFind Lib "t2win-16.dll" (MODULEENTRY As Any, ByVal ModuleName As String) As Integer
  819. Declare Function cModules Lib "t2win-16.dll" (MODULEENTRY As Any, ByVal FirstNext As Integer) As Integer
  820. Declare Function cMorse Lib "t2win-16.dll" (ByVal morse As String) As String
  821. Declare Function cNexthWnd Lib "t2win-16.dll" (ByVal hWnd As Integer) As Integer
  822. Declare Function cNumDigit Lib "t2win-16.dll" (Txt As String) As Integer
  823. Declare Function cOneCharFromLeft Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  824. Declare Function cOneCharFromRight Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  825. Declare Function cOrToken Lib "t2win-16.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  826. Declare Function cOrTokenIn Lib "t2win-16.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  827. Declare Function cPatternMatch Lib "t2win-16.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  828. Declare Function cPatternExtMatch Lib "t2win-16.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  829. Declare Function cProperName Lib "t2win-16.dll" (Txt As String) As String
  830. Declare Function cProperName2 Lib "t2win-16.dll" (Txt As String, ByVal TokenToUse As String, ByVal Options As Integer) As String
  831. Declare Sub cPutIni Lib "t2win-16.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String)
  832. Declare Function cRcsCountFileDir Lib "t2win-16.dll" (ByVal FileOrDir As Integer, ByVal FirstFileOrDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Integer
  833. Declare Function cRcsFilesSize Lib "t2win-16.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Long
  834. Declare Function cRcsFilesSizeOnDisk Lib "t2win-16.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Long
  835. Declare Function cRcsFilesSlack Lib "t2win-16.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer, Size1 As Long, Size2 As Long) As Integer
  836. Declare Function cReadBasisTimer Lib "t2win-16.dll" () As Long
  837. Declare Function cReadCtlLanguage Lib "t2win-16.dll" (Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  838. Declare Function cReadCtlLanguageExt Lib "t2win-16.dll" (Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  839. Declare Function cReadTimer Lib "t2win-16.dll" (ByVal nTimer As Integer) As Long
  840. Declare Function cRebootSystem Lib "t2win-16.dll" () As Integer
  841. Declare Function cRegistrationKey Lib "t2win-16.dll" (ByVal RegString As String, ByVal RegCode As Long) As Long
  842. Declare Function cRemoveBlockChar Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String
  843. Declare Function cRemoveOneChar Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer) As String
  844. Declare Function cRenameFile Lib "t2win-16.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String) As Integer
  845. Declare Sub cResetCapture Lib "t2win-16.dll" ()
  846. Declare Function cResizeString Lib "t2win-16.dll" (Txt As String, ByVal NewLength As Integer) As String
  847. Declare Function cResizeStringAndFill Lib "t2win-16.dll" (Txt As String, ByVal NewLength As Integer, Fill As String) As String
  848. Declare Function cRestartWindows Lib "t2win-16.dll" () As Integer
  849. Declare Function cReverse Lib "t2win-16.dll" (Txt As String) As String
  850. Declare Sub cReverseAllBits Lib "t2win-16.dll" (Txt As String)
  851. Declare Sub cReverseAllBitsByChar Lib "t2win-16.dll" (Txt As String)
  852. Declare Function cReverseSortD Lib "t2win-16.dll" (array() As Double) As Integer
  853. Declare Function cReverseSortI Lib "t2win-16.dll" (array() As Integer) As Integer
  854. Declare Function cReverseSortL Lib "t2win-16.dll" (array() As Long) As Integer
  855. Declare Function cReverseSortS Lib "t2win-16.dll" (array() As Single) As Integer
  856. Declare Function cReverseSortStr Lib "t2win-16.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  857. Declare Sub cRndInit Lib "t2win-16.dll" (ByVal nRnd As Long)
  858. Declare Function cRnd Lib "t2win-16.dll" () As Double
  859. Declare Function cRndD Lib "t2win-16.dll" () As Double
  860. Declare Function cRndI Lib "t2win-16.dll" () As Integer
  861. Declare Function cRndL Lib "t2win-16.dll" () As Long
  862. Declare Function cRndS Lib "t2win-16.dll" () As Single
  863. Declare Function cRomanToArabic Lib "t2win-16.dll" (Txt As String) As Variant
  864. Declare Function cSaveCtlLanguage Lib "t2win-16.dll" (Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  865. Declare Function cSaveCtlLanguageExt Lib "t2win-16.dll" (Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  866. Declare Sub cScalarToDate Lib "t2win-16.dll" (ByVal Scalar As Long, nYear As Integer, nMonth As Integer, nDay As Integer)
  867. Declare Sub cScalarToTime Lib "t2win-16.dll" (ByVal Scalar As Long, nHour As Integer, nMin As Integer, nSec As Integer)
  868. Declare Function cScrollL Lib "t2win-16.dll" (Txt As String) As String
  869. Declare Function cScrollR Lib "t2win-16.dll" (Txt As String) As String
  870. Declare Function cSearchI Lib "t2win-16.dll" (array() As Integer, ByVal Value As Integer) As Long
  871. Declare Function cSearchL Lib "t2win-16.dll" (array() As Long, ByVal Value As Long) As Long
  872. Declare Function cSearchS Lib "t2win-16.dll" (array() As Single, ByVal Value As Single) As Long
  873. Declare Function cSearchD Lib "t2win-16.dll" (array() As Double, ByVal Value As Double) As Long
  874. Declare Sub cSetAllBits Lib "t2win-16.dll" (Txt As String, ByVal Value As Integer)
  875. Declare Sub cSetBit Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer, ByVal Value As Integer)
  876. Declare Sub cSetBitToFalse Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer)
  877. Declare Sub cSetBitToTrue Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer)
  878. Declare Sub cSetCapture Lib "t2win-16.dll" (ByVal hWnd As Integer)
  879. Declare Sub cSetCtlCaption Lib "t2win-16.dll" (Obj As Object, ByVal Text As String)
  880. Declare Sub cSetCtlDataField Lib "t2win-16.dll" (Obj As Object, ByVal Text As String)
  881. Declare Sub cSetCtlTag Lib "t2win-16.dll" (Obj As Object, ByVal Text As String)
  882. Declare Sub cSetCtlText Lib "t2win-16.dll" (Obj As Object, ByVal Text As String)
  883. Declare Function cSetD Lib "t2win-16.dll" (array() As Double, ByVal nValue As Double) As Integer
  884. Declare Sub cSetDefaultSeparator Lib "t2win-16.dll" (Separator As String)
  885. Declare Function cSetHandleCount Lib "t2win-16.dll" (ByVal nHandle As Integer) As Integer
  886. Declare Function cSetI Lib "t2win-16.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  887. Declare Function cSetL Lib "t2win-16.dll" (array() As Long, ByVal nValue As Long) As Integer
  888. Declare Function cSerialGet Lib "t2win-16.dll" (ByVal file As String, SERIALDATA As tagSERIALDATA) As Integer
  889. Declare Function cSerialInc Lib "t2win-16.dll" (ByVal file As String, ByVal Increment As Long) As Integer
  890. Declare Function cSerialPut Lib "t2win-16.dll" (ByVal file As String, SERIALDATA As tagSERIALDATA) As Integer
  891. Declare Function cSerialRmv Lib "t2win-16.dll" (ByVal file As String) As Integer
  892. Declare Function cSetS Lib "t2win-16.dll" (array() As Single, ByVal nValue As Single) As Integer
  893. Declare Sub cSetWait Lib "t2win-16.dll" (ByVal nTimer As Integer, ByVal nValue As Long)
  894. Declare Function cSgn Lib "t2win-16.dll" (ByVal Value As Integer) As Integer
  895. Declare Sub cShowWindow Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal Method As Integer, ByVal interval As Integer)
  896. Declare Function cSleep Lib "t2win-16.dll" (ByVal delay As Long) As Integer
  897. Declare Function cSortD Lib "t2win-16.dll" (array() As Double) As Integer
  898. Declare Function cSortI Lib "t2win-16.dll" (array() As Integer) As Integer
  899. Declare Function cSortL Lib "t2win-16.dll" (array() As Long) As Integer
  900. Declare Function cSortS Lib "t2win-16.dll" (array() As Single) As Integer
  901. Declare Function cSortStr Lib "t2win-16.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  902. Declare Function cSpellMoney Lib "t2win-16.dll" (ByVal Value As Double, ByVal Units As String, ByVal Cents As String) As String
  903. Declare Function cSplitPath Lib "t2win-16.dll" (ByVal nFilename As String, SPLITPATH As Any) As Integer
  904. Declare Sub cStartBasisTimer Lib "t2win-16.dll" ()
  905. Declare Sub cStartTimer Lib "t2win-16.dll" (ByVal nTimer As Integer)
  906. Declare Sub cStartWait Lib "t2win-16.dll" (ByVal nTimer As Integer)
  907. Declare Sub cStopBasisTimer Lib "t2win-16.dll" ()
  908. Declare Function cStopTimer Lib "t2win-16.dll" (ByVal nTimer As Integer) As Long
  909. Declare Function cStringCompress Lib "t2win-16.dll" (Txt As String) As String
  910. Declare Function cStringCRC32 Lib "t2win-16.dll" (Txt As String) As Long
  911. Declare Function cStringExpand Lib "t2win-16.dll" (Txt As String) As String
  912. Declare Function cStringSAR Lib "t2win-16.dll" (ByVal Txt As String, ByVal Search As String, ByVal Replace As String, ByVal Sensitivity As Integer) As String
  913. Declare Sub cStringToType Lib "t2win-16.dll" Alias "cTypesCopy" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer)
  914. Declare Function cSubDirectory Lib "t2win-16.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  915. Declare Function cSumD Lib "t2win-16.dll" (array() As Double) As Double
  916. Declare Function cSumI Lib "t2win-16.dll" (array() As Integer) As Double
  917. Declare Function cSumL Lib "t2win-16.dll" (array() As Long) As Double
  918. Declare Function cSumS Lib "t2win-16.dll" (array() As Single) As Double
  919. Declare Sub cSysMenuChange Lib "t2win-16.dll" (ByVal hWnd As Integer, ByVal Position As Integer, ByVal NewMessage As String)
  920. Declare Sub cSwapD Lib "t2win-16.dll" (swap1 As Double, swap2 As Double)
  921. Declare Sub cSwapI Lib "t2win-16.dll" (swap1 As Integer, swap2 As Integer)
  922. Declare Sub cSwapL Lib "t2win-16.dll" (swap1 As Long, swap2 As Long)
  923. Declare Sub cSwapS Lib "t2win-16.dll" (swap1 As Single, swap2 As Single)
  924. Declare Sub cSwapStr Lib "t2win-16.dll" (swap1 As String, swap2 As String)
  925. Declare Function cTaskFind Lib "t2win-16.dll" (TASKENTRY As Any, ByVal hTask As Integer) As Integer
  926. Declare Function cTasks Lib "t2win-16.dll" (TASKENTRY As Any, ByVal FirstNext As Integer) As Integer
  927. Declare Function cTimeBetween Lib "t2win-16.dll" (ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  928. Declare Function cTimerClose Lib "t2win-16.dll" (ByVal TimerHandle As Integer) As Integer
  929. Declare Function cTimerOpen Lib "t2win-16.dll" () As Integer
  930. Declare Function cTimerRead Lib "t2win-16.dll" (ByVal TimerHandle As Integer) As Long
  931. Declare Function cTimerStart Lib "t2win-16.dll" (ByVal TimerHandle As Integer) As Integer
  932. Declare Function cTimeToScalar Lib "t2win-16.dll" (ByVal nHour As Integer, ByVal nMin As Integer, ByVal nSec As Integer) As Long
  933. Declare Function cToBinary Lib "t2win-16.dll" (Text As String) As String
  934. Declare Function cToBinary2 Lib "t2win-16.dll" (Text As String, Bin As String) As String
  935. Declare Sub cToggleAllBits Lib "t2win-16.dll" (Txt As String)
  936. Declare Sub cToggleBit Lib "t2win-16.dll" (Txt As String, ByVal Position As Integer)
  937. Declare Function cToHexa Lib "t2win-16.dll" (Text As String) As String
  938. Declare Function cTokenIn Lib "t2win-16.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  939. Declare Function cTrueBetween Lib "t2win-16.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  940. Declare Function cTruncatePath Lib "t2win-16.dll" (ByVal nFilename As String, ByVal NewLength As Integer) As String
  941. Declare Sub cTypeClear Lib "t2win-16.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer)
  942. Declare Function cTypeMid Lib "t2win-16.dll" (TypeSrc As Any, ByVal offset As Integer, ByVal Length As Integer) As String
  943. Declare Function cTypesCompare Lib "t2win-16.dll" (Type1 As Any, Type2 As Any, ByVal lenType1 As Integer) As Integer
  944. Declare Sub cTypesCopy Lib "t2win-16.dll" (TypeSrc As Any, TypeDst As Any, ByVal lenTypeSrc As Integer)
  945. Declare Function cTypeTransfert Lib "t2win-16.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer) As String
  946. Declare Sub cTypeToString Lib "t2win-16.dll" Alias "cTypesCopy" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer)
  947. Declare Function cUncompact Lib "t2win-16.dll" (Txt As String) As String
  948. Declare Function cUnHideAllEditForm Lib "t2win-16.dll" () As Integer
  949. Declare Function cUnHideDebugForm Lib "t2win-16.dll" () As Integer
  950. Declare Function cUniqueFileName Lib "t2win-16.dll" (Txt As String) As String
  951. Declare Sub cUnloadDLL Lib "t2win-16.dll" (ByVal hMod As Integer)
  952. Declare Function cWalkThruWindow Lib "t2win-16.dll" (Class As String, Caption As String, OwnerHwnd As Integer, OwnerClass As String, OwnerCaption As String, ByVal FirstNext As Integer) As Integer
  953. Declare Function cWeekOfYear Lib "t2win-16.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  954.  
  955. Declare Sub cPushID Lib "t2win-16.dll" (IDArray As Integer, ByVal nID As Integer)
  956. Declare Sub cPopID Lib "t2win-16.dll" (IDArray As Integer, ByVal nID As Integer)
  957. Declare Sub cPopLastID Lib "t2win-16.dll" (IDArray As Integer)
  958. Declare Function cGetID Lib "t2win-16.dll" (IDArray As Integer, ByVal nPosition As Integer) As Integer
  959. Declare Sub cClearID Lib "t2win-16.dll" (IDArray As Integer)
  960.  
  961. ' File I/O, direct routines issued from C functionnalities
  962. Declare Function cFopen Lib "t2win-16.dll" (ByVal file As String, ByVal Mode As String) As Long
  963. Declare Function cFclose Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  964. Declare Function cFgetc Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  965. Declare Function cFputc Lib "t2win-16.dll" (ByVal char As Integer, ByVal IOstream As Long) As Integer
  966. Declare Function cFputs Lib "t2win-16.dll" (ByVal Txt As String, ByVal IOstream As Long) As Integer
  967. Declare Function cFgets Lib "t2win-16.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer
  968. Declare Function cFwrite Lib "t2win-16.dll" (Txt As String, ByVal IOstream As Long) As Integer
  969. Declare Function cFread Lib "t2win-16.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer
  970. Declare Function cFcloseall Lib "t2win-16.dll" () As Integer
  971. Declare Function cFflush Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  972. Declare Function cFflushall Lib "t2win-16.dll" () As Integer
  973. Declare Function cFeof Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  974. Declare Function cFerror Lib "t2win-16.dll" (ByVal IOstream As Long) As Integer
  975. Declare Sub cFclearerr Lib "t2win-16.dll" (ByVal IOstream As Long)
  976. Declare Function cFseek Lib "t2win-16.dll" (ByVal IOstream As Long, ByVal offset As Long, ByVal origin As Integer) As Integer
  977. Declare Function cFtell Lib "t2win-16.dll" (ByVal IOstream As Long) As Long
  978. Declare Sub cFrewind Lib "t2win-16.dll" (ByVal IOstream As Long)
  979.  
  980. ' Functions for calculating interest rate
  981. Declare Function cAtoF Lib "t2win-16.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  982. Declare Function cAtoFC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  983. Declare Function cAtoP Lib "t2win-16.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  984. Declare Function cAtoPC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  985. Declare Function cFtoA Lib "t2win-16.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  986. Declare Function cFtoAC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  987. Declare Function cFtoP Lib "t2win-16.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  988. Declare Function cFtoPC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  989. Declare Function cPtoA Lib "t2win-16.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  990. Declare Function cPtoAC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  991. Declare Function cPtoF Lib "t2win-16.dll" (ByVal Interest As Double, ByVal N As Integer) As Double
  992. Declare Function cPtoFC Lib "t2win-16.dll" (ByVal Rates As Double, ByVal N As Integer) As Double
  993.  
  994. ' Functions for calculating 2-D geometry
  995. Declare Sub cV2Add Lib "t2win-16.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  996. Declare Sub cV2Sub Lib "t2win-16.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  997. Declare Sub cV2Combine Lib "t2win-16.dll" (u As tagVECTOR2, ByVal c1 As Double, v As tagVECTOR2, ByVal c2 As Double, w As tagVECTOR2)
  998. Declare Sub cV2Copy Lib "t2win-16.dll" (u As tagVECTOR2, w As tagVECTOR2)
  999. Declare Function cV2Dot Lib "t2win-16.dll" (u As tagVECTOR2, v As tagVECTOR2) As Double
  1000. Declare Function cV2Length Lib "t2win-16.dll" (u As tagVECTOR2) As Double
  1001. Declare Function cV2LengthSquared Lib "t2win-16.dll" (u As tagVECTOR2) As Double
  1002. Declare Sub cV2LinearIp Lib "t2win-16.dll" (lo As tagVECTOR2, hi As tagVECTOR2, ByVal alpha As Double, w As tagVECTOR2)
  1003. Declare Sub cV2Mul Lib "t2win-16.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1004. Declare Sub cV2Neg Lib "t2win-16.dll" (u As tagVECTOR2)
  1005. Declare Sub cV2Normalized Lib "t2win-16.dll" (u As tagVECTOR2)
  1006. Declare Sub cV2Ortho Lib "t2win-16.dll" (u As tagVECTOR2, w As tagVECTOR2)
  1007. Declare Sub cV2ScaledNewLength Lib "t2win-16.dll" (u As tagVECTOR2, ByVal newlen As Double)
  1008. Declare Function cV2SegmentLength Lib "t2win-16.dll" (p As tagVECTOR2, q As tagVECTOR2) As Double
  1009.  
  1010. ' Functions for calculating 3-D geometry
  1011. Declare Sub cV3Add Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1012. Declare Sub cV3Sub Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1013. Declare Sub cV3Combine Lib "t2win-16.dll" (u As tagVECTOR3, ByVal c1 As Double, v As tagVECTOR3, ByVal c2 As Double, w As tagVECTOR3)
  1014. Declare Sub cV3Copy Lib "t2win-16.dll" (u As tagVECTOR3, w As tagVECTOR3)
  1015. Declare Sub cV3Cross Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1016. Declare Function cV3Dot Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3) As Double
  1017. Declare Function cV3Length Lib "t2win-16.dll" (u As tagVECTOR3) As Double
  1018. Declare Function cV3LengthSquared Lib "t2win-16.dll" (u As tagVECTOR3) As Double
  1019. Declare Sub cV3LinearIp Lib "t2win-16.dll" (lo As tagVECTOR3, hi As tagVECTOR3, ByVal alpha As Double, w As tagVECTOR3)
  1020. Declare Sub cV3Mul Lib "t2win-16.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1021. Declare Sub cV3Neg Lib "t2win-16.dll" (u As tagVECTOR3)
  1022. Declare Sub cV3Normalized Lib "t2win-16.dll" (u As tagVECTOR3)
  1023. Declare Sub cV3ScaledNewLength Lib "t2win-16.dll" (u As tagVECTOR3, ByVal newlen As Double)
  1024. Declare Function cV3SegmentLength Lib "t2win-16.dll" (p As tagVECTOR3, q As tagVECTOR3) As Double
  1025.  
  1026. ' Functions for Huge String management
  1027. Declare Function cHugeStrAdd Lib "t2win-16.dll" (ByVal hsHandle As Integer, hsText As String) As Integer
  1028. Declare Function cHugeStrAddress Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1029. Declare Function cHugeStrAppend Lib "t2win-16.dll" (ByVal hsHandle As Integer, hsText As String) As Integer
  1030. Declare Function cHugeStrBlocks Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1031. Declare Function cHugeStrClear Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Integer
  1032. Declare Function cHugeStrCreate Lib "t2win-16.dll" (ByVal hsSize As Long) As Integer
  1033. Declare Function cHugeStrFree Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Integer
  1034. Declare Function cHugeStrGetNP Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1035. Declare Function cHugeStrGetWP Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1036. Declare Function cHugeStrLength Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1037. Declare Function cHugeStrMid Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsStart As Long, ByVal hsLength As Long) As String
  1038. Declare Function cHugeStrNext Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsNext As Long) As String
  1039. Declare Function cHugeStrOnDisk Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long
  1040. Declare Function cHugeStrRead Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsBlock As Long) As String
  1041. Declare Function cHugeStrSetNP Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsPtr As Long) As Integer
  1042. Declare Function cHugeStrSetWP Lib "t2win-16.dll" (ByVal hsHandle As Integer, ByVal hsPtr As Long) As Integer
  1043. Declare Function cHugeStrSize Lib "t2win-16.dll" (ByVal hsHandle As Integer) As Long
  1044.  
  1045. ' Functions for Huge Memory Array management
  1046. Declare Function cHMAClear Lib "t2win-16.dll" (HMA As tagHMA) As Integer
  1047. Declare Function cHMAClearCol Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, ByVal sheet As Long) As Integer
  1048. Declare Function cHMAClearRow Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal sheet As Long) As Integer
  1049. Declare Function cHMAClearSheet Lib "t2win-16.dll" (HMA As tagHMA, ByVal sheet As Long) As Integer
  1050. Declare Function cHMACreate Lib "t2win-16.dll" (HMA As tagHMA) As Integer
  1051. Declare Function cHMAFree Lib "t2win-16.dll" (HMA As tagHMA) As Integer
  1052. Declare Function cHMAGet Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  1053. Declare Sub cHMAGetType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  1054. Declare Sub cHMAPut Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  1055. Declare Sub cHMAPutType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  1056. Declare Sub cHMArGet Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant)
  1057. Declare Sub cHMArGetType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any)
  1058. Declare Sub cHMArPut Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant)
  1059. Declare Sub cHMArPutType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any)
  1060. Declare Sub cHMAsGet Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  1061. Declare Sub cHMAsGetType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any)
  1062. Declare Sub cHMAsPut Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  1063. Declare Sub cHMAsPutType Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any)
  1064. Declare Function cHMAsClearCol Lib "t2win-16.dll" (HMA As tagHMA, ByVal Col As Long) As Integer
  1065. Declare Function cHMAsClearRow Lib "t2win-16.dll" (HMA As tagHMA, ByVal Row As Long) As Integer
  1066. Declare Function cHMAOnDisk Lib "t2win-16.dll" (HMA As tagHMA, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long
  1067.  
  1068. ' functions for accessing OCX and VBX custom controls
  1069. Declare Sub cObjectMethodByPos Lib "t2win-16.dll" (Obj As Object, ByVal Property As Integer, lpPut As Variant)
  1070. Declare Function cObjectGetPropertyByPos Lib "t2win-16.dll" (Obj As Object, ByVal Property As Integer) As Variant
  1071. Declare Sub cObjectPutPropertyByPos Lib "t2win-16.dll" (Obj As Object, ByVal Property As Integer, lpPut As Variant)
  1072. Declare Sub cObjectMethodByName Lib "t2win-16.dll" (Obj As Object, ByVal Property As String, lpPut As Variant)
  1073. Declare Function cObjectGetPropertyByName Lib "t2win-16.dll" (Obj As Object, ByVal Property As String) As Variant
  1074. Declare Sub cObjectPutPropertyByName Lib "t2win-16.dll" (Obj As Object, ByVal Property As String, lpPut As Variant)
  1075.  
  1076.